unit UFormTeste;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, XPMan, StdCtrls, ExtCtrls, ImgList, Grids, DBGrids,
  UFrameEdicao, UFrameSearch;

type
  TFormAncestral = class(TForm)
    PageControlMain: TPageControl;
    tshPesquisa: TTabSheet;
    tshManutencao: TTabSheet;
    StatusBar1: TStatusBar;
    XPManifest1: TXPManifest;
    ImageListPageControls: TImageList;
    PageControlDetail: TPageControl;
    tshDetail: TTabSheet;
    PanelSearch: TPanel;
    PanelGridSearch: TPanel;
    DBGridSearch: TDBGrid;
    FrameSearch: TFrameSearch;
    FrameEdit: TFrameEdit;
    paDetail: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAncestral: TFormAncestral;

implementation

{$R *.dfm}

procedure TFormAncestral.FormCreate(Sender: TObject);
begin
  PageControlMain.ActivePageIndex := 0;
end;

end.
